home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / RxMUI / Examples / PopA.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2004-01-31  |  3.3 KB  |  127 lines
  1. /* PopAsl example */
  2.  
  3. signal on halt
  4. signal on break_c
  5.  
  6. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  7. if AddLibrary("rexxsupport.library","rxmui.library")~=0 then exit
  8.  
  9. call RxMUIOpt("debugmode showerr")
  10. call CreateApp
  11. call HandleApp
  12. /* never reached */
  13. /***********************************************************************/
  14. HandleApp: procedure
  15.  
  16.     ctrl_c=2**12
  17.     do forever
  18.         call NewHandle("app","h",ctrl_c)
  19.         if and(h.signals,ctrl_c)>0 then exit
  20.         select
  21.             when h.event="QUIT" then exit
  22.             otherwise interpret h.event
  23.         end
  24.     end
  25.     /* never reached */
  26. /***********************************************************************/
  27. err: procedure expose sigl rxmuierror
  28. parse arg res
  29. say sigl "["res"]"
  30.     say getrxmuistring(res) "in line" sigl-1 rxmuierror
  31.     exit
  32. /***********************************************************************/
  33. CreateApp: procedure
  34.  
  35.     app.Title="PopaslExample"
  36.     app.Version="$VER: PopaslExample 1.0 (12.10.2000)"
  37.     app.Copyright="©2000, alfie"
  38.     app.Author="alfie"
  39.     app.Description="PopaslExample"
  40.     app.Base="RXMUIEXAMPLE"
  41.     app.SubWindow="win"
  42.      win.ID="MAIN"
  43.      win.Title="PopaslExample"
  44.      win.Contents="MGROUP"
  45.  
  46.       mgroup.0="pg"
  47.        pg.class="group"
  48.        pg.frame="group"
  49.        pg.frametitle="Popasl example"
  50.        pg.background="groupback"
  51.        pg.Columns=2
  52.  
  53.       pg.0=label("HTML only")
  54.       pg.1="popf"
  55.        popf.class="popasl"
  56.        popf.FilterMacro="parse arg a,b,c;return match('#?.(htm|html)',a)"
  57.        popf.DomultiSelect=1
  58.        popf.AcceptPattern="#?"
  59.        popf.RejectPattern="#?.o"
  60.         url.Maxlen=16000
  61.        popf.String=string("file")
  62.        popf.DoPattern=1
  63.        popf.SleepWindow=1
  64.        popf.InitialPattern="#?"
  65.        popf.Title="File selector"
  66.  
  67.        /*
  68.        PopSpec examples:
  69.        popf.PopSpec="1:1"
  70.        popf.PopSpec="2:C0C0C0C0,C0C0C0C0,C0C0C0C0"
  71.        popf.PopSpec="2:m3" (use pen number 3 - undocumented hack)
  72.        popf.PopSpec="3:" FORGET ABOUT THIS!
  73.        popf.PopSpec="4:XEN/Gradient/11pt/PopFile.mf0"
  74.        popf.PopSpec="5:Pics/Stop"
  75.        popf.PopSpec="6:12"
  76.        */
  77.       pg.2=label("Above")
  78.       pg.3=Text("info")
  79.  
  80.       pg.4=label("Drawer")
  81.       pg.5="popd"
  82.        popd.class="popasl"
  83.        popd.String=string("dir")
  84.        popd.DrawersOnly=1
  85.        popd.Title="Drawer selector"
  86.  
  87.       pg.6=label("Font")
  88.       pg.7="popfo"
  89.        popfo.class="popasl"
  90.        popfo.type="font"
  91.        popfo.String=string("font")
  92.        popfo.Title="Fonts selector"
  93.        popfo.toggle=0
  94.  
  95.       pg.8=label("Fixed font")
  96.       pg.9="popfof"
  97.        popfof.class="popasl"
  98.        popfof.type="font"
  99.        popfof.FixedWidthOnly=1
  100.        popfof.String=string("fixedfont")
  101.        popfof.Title="Fonts selector"
  102.  
  103.       mgroup.1="bg"
  104.        bg.class="group"
  105.        bg.horiz=1
  106.         bg.0=hspace()
  107.         bg.1=button("fo","Font _Open")
  108.         bg.2=hspace()
  109.  
  110.     res=NewObj("APPLICATION","APP")
  111.     if res~=0 then call err(res)
  112.  
  113.     call set("win","open",1)
  114.  
  115.     call Notify("win","CloseRequest",1,"app","ReturnID","quit")
  116.     call notify("file","newcontents","everytime",info,set,contents,triggervalue)
  117.  
  118.     call notify("fo","pressed",0,"popfo","open")
  119.  
  120.     return
  121. /***********************************************************************/
  122. halt:
  123. break_c:
  124.     exit
  125. /**************************************************************************/
  126.  
  127.